@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `1  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI4 0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu  } 3E:}DISK OPERATING SYSTEM II VERSION COPYRIGHT 1984 ATARI CORP.A. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDG*}E J. DUPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRES+}SF. LOCK FILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES P. FORMAT SINGLEL !N',}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }Insert DOS 2.0s, type Y Λx -}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!NO SUCH ITEMSELECT.} ITEM OR FOR MENU! 0 .z:*{}.|{ 1 0 0JB 18L%|DL/}%DIRECTORY--SEARCH SPEC,LIST FILE?[# 0 0 &|D3" 1L!NOT A DISK FILEN !B 1L!E# 1 !BD0}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.1}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPEC2}COPY--FROM, TO?OPTION NOT ALLOWED736 FREE SECTORS COPYING---D1:DIRECK.COMl# 0|D .L/%#3}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY4}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 5}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!WILD CARDS NOT A6}LLOWED IN DESTINATION 0 <.|K}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!BAD LOAD FILELOAD FROM WHAT FILE?) 0 ?}0#B 1L!WHAT FILE TO LOCK?) 0 0$B 1L!WHAT FILE TO UNLOCK?DUP DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO US@}E PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV.FE! +L1   `*  70 2 2A} 0.* 1 y0 0)INSERT BOTH DISKS, TYPE RETURN^, 1 y038逍 N, 1L! ,B}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0C}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhD}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURNE}`  `8 rL1`-* 1P* 1 y0Y`hhL!NAME OF FILE TO MOVE?- 0 0|DL% <.F},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  G}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PH},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭI}}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DOJ}S.SYS0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GIVE L}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`PLEASE TYPE 1 LETTER,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO} TOO LONG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 138ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uR} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uv5.12X BANKUTIL.ADN3XL01L.0```````````` u?Ӎ1 B k80 2 27+ӭ80 2 ? : k k k T}0 k 2LN01Ӎ G;*02 :"2 : :1 0* 80+Ӎ ?} k 9L7;8ST U}:8UV  22[L:82[L: G;m2 : :1B8<80 2 2iLQ11+ u?+ӍV} ?0* L'; G;I2 : :24 68L';䰍<*0* u?+Ӎ ? L';W}Select Bank Number: to exit Free Free; Modified.Use Banks (2,4,6,8): to exitUse X}Bank Set (1-8): to exit/END BANKUTIL.ADN/ to exit Free Free; Modified.Use Banks (2,4,6,8): to exitUse 3+3/j өj +R0B JKD+E V0 BD+EHI Z}V +Rkk.mkkkik`0 BLVE: [}  ...loading the RS232 Version of  \}        ]}       ^}|砠||Ӡ _}|| `}| Keyboard Macro Feature || [C] 1987 || Mike Collins and Ronnie Riche a} |+++k q$q+%q+ b}6+7+ۍ6+7 q q o=kk < DF = MI@ aLj+xk = -= .=, = D L >qiE , c}lllykzkLx$+%X`xq$q%X`ykL6vp0CC&ChP;<;;;; l d}̸l;;ॄ``e,<+<e/<.<褄 ,} GNllll:mYmpqil8l8 l8l8m`ll I ?< =ag =lLCA =Tg h} =l`'XRUT`H)h)` i@L >8 `qIqIq ?< NN aqɦ @qL(>xk$xk =l i}@ Ϡi =L(>ڠi =L(>q)qL>kɛL>L>),p0 q{m\i^e_a`]Hp^zk j} : L >l Hh = ?<8llilil CAL >????L >ʊ >H H?H?H`J\^`~ k} }|_    uDDDDZEaEiExEEE*G{H?JLJH"I`IIW3OSVSO0RY c9EZtGZCF_d_ l}JaNH@H=``8_GK@T@ADG]@@RBiBO-@&UcUC^cccc+C6CzCCKLLCDaM@ehe[f@yk zk` =l|D CAL=zk =2àg = IZll8l内l凅8ll8l匍ll卍l ;ll u}ll >D CAL=lliͺlͰlͱl LND``zkLCAlΫlΫll ?< CA} GNL=`zk v}ƇƆLCA`zkƋ^^`8eiLCA`zk^` 懥ͻl^ei w}LCAllLCA`zkll8ͭlll ?i&qk``zk^懥ͻlL,ELE`zk }Ƌ^ƋͭlLE8ee8内包LILCA +@ԩ-J01 } ‘L'Jȱ‘`H ԭiEЭEh@`zk DFlzk =g =I ?<I2 #=)_ @W J DLJ }S J ELJP J aILJ CAL=mm`8mmmm Fmm ?Dh`p W pLW`zk =Ci =D{kH@ Khl lESL= X荍klkl,̽l󩛙l }i荏kilk $LLVkkELX I =h = N a} GNL= TIi =@ Jl*lE }#S Skpk荏klk $LLT ULT + B VaDNEHIBLV䌓NHI B V䬓N`E:LjNqԅ } ؠH),q0 GNLN ]Zh0`yk-zkL9b`ql =q zkzkq P` Pq)? }<q)@ xk`I@`qP,P a{)ɀ٢Ю ` =h = I X nO0LXL=LV =Šh = I X P0 }LX pBJDiE V` BD;E HI V`;iE;E;l;l;l;l;xk;l;. }8(lJl;|<;k+-;.`iE;E;l;l;l;l;;l;.;|<;k;.; pB }JDiE V` BD;E HILVH~Э h`lj;k+*opui-=vcbxz436521, .nm/reytwq9 }07~8<>fhdgsaLJ:K\^OPUI_|VCBXZ$#&%"![ ]NM?REYTWQ()'@}FHDGSA {   `  }} QpK&DhEHIJB V0\qqdQqeRqqq R0?+K GN R03q R0) GNqq }. GNLQ  RƌLQp B VpC`H GNh GN R0 GNLRpHIBLV`zkl X N XR} GN pQq }kk bd UQqRqPqqq U #=Ra)_ݧRLTʊ RHRH`+*-=RLUF12345678 XC<>S[ShSSS[ShSSS }fT TTaT{T{T{T{T{T{T{T{TTTSMffRS`zk2 =h = IL= Sl R N@0+6+7q q }` U bdLyR UPqLvS UPqq PqQqRqLyR UPq8LvS UPqiqުLvS&hp) 1Z p p }.ʎOqp`pBOqHIDpELV S! SLT ULyR S#LS S$LS Ti =@ J+ SOq,pȽlpl }Oqp U LS ULT Ti = I U SLS'hL1RppJ S S0@ T GNLGN1m Q Tg =1m hN GNh = #= ULT I` TRi ='hLGNyk-zk4 =lD{k Kl! X }lOqȹlp S0LXLV`yk-zk4 =lD{k Kl! XlOqȹlp! S0LXLV` e;qll/(lȹl }A `CqLUZq ``pLUpllL Vp8l勪,p0ɛ^LIVLIV =LIV^LIV }LIV 1Z`zk =ߠg =D{k *W0Y UplDlEq8lHlILV8llHllI B V0 U Q0 } LXH Uhykk c;H =h'gHLVEg6g =LWg =h hN W Il` =g =LWp BLVpppH@ } Kp Up Xhl =hhLI WpDlElHIpJBLV`zk8llą = h =D{k }*WLVqk k kLV < Yq"p%BkLkMkN V0 p 4XLVLXp&B VpLkMkNk` }pDE8l冝Hl凝I8IHQ8HPHIIB V`kkkLX XpHmllImlllel }lel Ull` WLV} GNh =LW +@ԭiEE`ll&q:Ȍk`mmmm8* } &m.mm.mm.mm.m mmL&Ym m8mmmmmmLXYm`zk8mlmmlm m =Ah = }l`mmmm8l倅l偅eͯl =5h =l` <mmllmmllll ;LCA)?! ; }I@LvDH)h)` @@LHZi `KB:P 9mk9m`HH8)m+m*m,m1pHI B9m V( V }L >hh9m`k` =_hL =LW\`zk =Sh =P{k *WLW\ X Z!m m5m6mpkKZ"m 0m.mVZm }mll/m.m"m/mL#]^)m/m/m#m挹l/mlȱl8ei0m \.m \8..mll }mkk ck `0mȌk)mk*mk ]0m&m n\8ll}{!m m%m n\k<kklkl =l }-j =kk hN3j =k hNL >lE GNh = #= Q I} GN =L >L.[8$m0m0 ]!mlo ` ] }] ])m*m(m k8)m+m*m,m =mh = #= Z mln `%m0m0 ]` "m/m ]Z`'mm0m0m ]` } ]Zp ]Z`2m.m/m2mLC]Ɏ/m) 1Z]݋] /mL^ʊ 1m]HnH]H]H`81meiL.[^1m`wlrtbsn }hf@p?xmigjq ^^'^1^;^E^O^}^^]^]]]^^^]ȩ.mkL] YkL] Y-mL] Y+mm,mL] Y)mm*mL] Y$mL]( }mL] pL] Y"mL] Y#mL] Y%mL] Y&mL] Y'mL] YH 1mȱ 8&m0m匰 n\h1mL] ^ mn } mL]ȱ^` ^!mo!mL] ^L]ȱ2mLI[ YH2m)hxm ]Lo]kL\^ 1Zlll` }pp [WLZ < 4XLZ YhhppL$[`zk e_:m `k _8m >` ?Error #BREAK Key AbortNo ErrorsLoad File> Ӡ٠D1:*.*Memory FullNo text in buffe }rPrint File>Printing...Insert next sheet, press Find:Not foundExit to DOSChange to:Load Config FileSave Conf }ig FileKey Click OnKey Click OffFast Repeat OnFast Repeat OffD1:TEXTPRO.CNFD1:NAME.MECopy>Co }py to> -elete ock nlock ename ormat -oad opy Eit Drive -:Rename to>Format diskInsert ModeReplac }e ModeUpper CaseLower Case WordsLoad Macro>Word Wrap OnWord Wrap Off Used, Free, Cursor at Page , Line Verify Off }Verify OnDirectory Sorting OnDirectory Sorting OffE:Exit to BASICBinary Load>Nonexistent DeviceTimeoutDevice NAKSer }ial Bus ErrorDisk Write ProtectedFile Not BinaryInvalid Drive NumberDisk FullSector Link ErrorLinked Load ErrorInvalid } File NameFile LockedFile Not FoundSegment Not Linkedr;qr r BJDrE V0 BD, }EHI V 3r,6r,3r6r+. r. r nO r; O r b rkɃ"k@ } S = ȩ+ `??` pLWD1:TEXTPRO.FNTD1:TEXTPRO.MAC0(+; O r b rkɃ"k@ Vv5.12X TOOLS.ADN...3XL4L.0````````````0 :1 : G;1 : :ɛ*1L12L23L)44L45Lm56L6 }0L7;}} k 9 `}*Please Wait*6|TIME/DATE Insert Sparta Time/Date.5|SOFTKEYS Setup Programmable SoftKEYS.4|PRINT DEFAULTS} Setup Default Print Settings.3|CONVERT Convert ASCII CR's to ATASCII.2|SETUP BANKS Select Bank Set and Number.1|LIS}T BANKS Display and Select from Bank List.ؠ: Press to exit u?ӍV33 :80337+ӭ80͗3} ? : k k k j2 kΗ3L1V3Ӎ*0 > }0L7; G;3 : :1 0* 80+Ӎ ? }0L7;8S}T :8UV  ˠ3[L:Ѡ3[L: G;4 : :1B8<8033iL2V3+} u?+Ӎ ?0* }0L'; G;3 : :246 8 }0L';䰍<*0* u?+Ӎ ? }0L';}Select Bank Number: to exit}*Please Wait* Free Free; Modified.Use Ba}nks (2,4,6,8): to exitUse Bank Set (1-8): to exit G;Ϡ4 : oe4t4f4u48刍4前424}M^J u44f44 4έ4ˊmt4u4i ҂ }0L7;8V 9LConvert ASCII CR's}} k G;Ǡ5 :*6 N5:6 N5J6 N5Z6 N5j6 N5z6 N56 N56 N5 G;5 : К }0L7;)6 : 1` })67`} k G; 6 : 58")6 5 G;5 : :)69Lm5` }0L7;rX[T U`: } to skipDefine as: Ӡ٠Press : to exit Left Margin #...Y Setting #Right Margin #} Page Length # Top Margin # Bot Margin #Line Spacing #Width Across #B G;6 : 3ܶݶ H)Ӥ} hӠ Y;^ }0L7;Insert date/END TOOLS.ADN/ #Width Across #B G;6 : 3ܶݶ H)Ӥ>TOOLS.DOC - doc for the v5.12X version of TP Tools Addin.=========TPX Tools=========TOOLS.ADN is a menu driven set }of TextPRO Tools that were formerly made available as separate files. This set is reverse engineered for v5.12X after being }written for later development versions. All that was required to convert it for use with v5.12X was to compile it against th}e source code for that version. In this way any addins written for v5.12X will be portable to the later versions. The tools} are accessed with the CTRL-; key to display the following choices..6|TIME/DATEThis will ask if you want to insert the Sp}arta Time/Date to the editor. Only works in SpartaDOS.5|SOFTKEYSThis function allows you to define the user programmed S}oftKEY settings during an edit session. This was formerly a startup option only.4|PRINT DEFAULTSThe print default select}ions previously available only at startup.3|CONVERTThis function is new and uses HIGH SPEED memory moves to convert the A}SCII CTRL-MJ's that represent the carriage return in IBM/ST files to single ATASCII CR's and shrink the file. This is NOT a }search and replace but a selective overlapping memory move. A full editor buffer can be converted in a second or so. If you} are an ATARI8 communicator you will probably like this one. It does the conversion from the cursor position to the end of t}he file.2|SETUP BANKSThis is the setup banks function for selection of Bank Sets and number of banks. If you are not a p}rogrammer that can manipulate the bank tables in the addin source you are probably better off leaving this one alone.1|LIST} BANKSLists your current active banks. If nothing is active you will be asked if you want to clear your banks.LAGNIAPPE}---------Pronounced "lanyap"Means something extra..The SELECT+CTRL-; key has a SCREEN DOWN feature. I advise you assig}n this to a SoftKEY to make it easier to access. Communicators should like this one too.-----This is an example of how }much can be included in a TP addin file. The use of the menu increases the number of functions you can attach to one key. T}he source can be easily expanded and customized and the code should offer some hints on how to call various TP routines in as}sembly.-ronnie-ily expanded and customized and the code should offer some hints on how to call various TP routines in asq X;TOOLS.SRC - MAY 4, 1994X;TEXTPRO TOOLSX;(1ADDSTARTUM Av5.12X TOOLS.ADN...A==AA2ADDINEQ 3==AX}A<X;FX;MACRO ADDIN JUMP TABLE FORPX;HOOKING TO ADDINSZ%X;ADNJMP1/2-EDITOR ADNJMP3/4-PRINTdX;ADNJMP5-MENU ADNJMP6-MIS}CnX;x MACADDINADNJMP1!DNSCRADNJMP2!TOOLS ADNJMP3::: ADNJMP4::: ADNJMP5::: ADN}JMP6:::TOOLSQ>4?MENU" %>5?MENU, PRMSG6 Q>4?MENU2@ %>5?MENU2J PRMSGT TOPCLR^Q>4?MENUMSGh%>5?ME}NUMSGr PRMSG| GETAKEYR> F?M_X ?M_1R> 1 H?M_2 !ITEM_1 ?M_2R> 2 H?M_3 !ITEM_2 ?M_3R> 3 H?}M_4 !ITEM_3 ?M_4R> 4 H?M_5 !ITEM_4 ?M_5R> 5 H?M_6& !ITEM_50 ?M_6R> 6: H?M_XD !ITEM_6N?M_X CLEAN}UPX !SYSMSGbCLEANUPQ> }l CHROUTv REFRESH CHECK:?MENU A}*Please Wait*A=6 A6|TIME/DATEA==A Inse}rt Sparta Time/Date.A=9 A5|SOFTKEYSA==A Setup Programmable SoftKEYS.A=C A4|PRINT DEFAULTSA==A Setup Default} Print Settings.A==A?MENU2 A3|CONVERTA==A Convert ASCII CR's to ATASCII.A=; A2|SETUP BANKSA==A Select Ba}nk Set and Number.A=D A1|LIST BANKSA==A Display and Select from Bank List.A==2?MENUMSG Aؠ: Press } to exitA=X;ADDIN CODE GOES HEREX; ITEM_1 LISTBNK ZTOBNK QPORTB P?SAVPORTB*Q>4?WAITMSG4%>5?}WAITMSG> PRMSGH QNUMBANKSR;\S> 0f P?LOOPNUMp?LOOPQ?LOOPNUMz F?XLOOP>QSAVPORTB9 PPORTB QBANKNUM};S> 0 R?LOOPNUM H?NOBANK BNKTOZQ>4BANKNUM%>5BANKNUM PRMSGQ> CHROUTQ>  CHROUT$ }CHROUT. ?FREEMEM8Q>B CHROUTL?NOBANK"?LOOPNUMV !?LOOP`?XLOOPQ?SAVPORTBj PPORTBt PRPORTB~ QBANKFLG}R> 0 H?PICK BANKSET CLEANUP !SYSMSG?PICK TOPCLRQ>4?PICKMSG%>5?PICKMSG PRMSG GETAKEY?GO}TOBANKR> 1 F?GTBNKD?XLISTBNK  RNUMBANKS F?GTBNKE?XLISTBNK(?GTBNK$> 02 (BANKFLG<F?XLISTBNKF;PS> 0Z}>dQSAVPORTB9n PPORTBx PRPORTB?XLISTBNK BNKTOZX; CLEANUP !SYSMSG ?FREEMEM; QLASTLINE STEXSTAR}T>QLASTLINESTEXSTART OUTNUMQ>4USEDMSG%>5USEDMSG PRMSG; QTEXEND" SLASTLINE,>6QTE}XEND@SLASTLINEJ OUTNUMT QLASTLINE^RSAVLASTLINEhH?PRMODMSGrQLASTLINE|RSAVLASTLINEH?PRMODMS}GQ>4?FREEMSG%>5?FREEMSG #MSGFLG !PRMSG?PRMODMSGQ>4?MODMSG%>5?MODMSG #MSGFLG !PRMSGX; ITEM_}2SETUPBNKS TOPCLRQ>4?SETMSG%>5?SETMSG PRMSG GETAKEY&R> 10 F?DOSET:D?SETUPNUMDR> 8N F?DOSETX}E?SETUPNUMb ?DOSET;lS> 0v P?LOOPNUM$>?BNKLOOP(?LOOPNUM F?CPYBNK,O>2 !?BNKLOOP ?CPYBNK>}%>?CPYLOOPQ?SAVPORTB9PSAVPORTB83)> H?CPYLOOP  ZTOBNK QSAVPORTB  PPORTB* PRPORTB4 BNKTOZ>}Q> 0H PBANKFLGR CLEANUP\ !VERSIONf?SETUPNUM TOPCLRpQ>4?NUMMSGz%>5?NUMMSG PRMSG GETAKEYR> 2 F?}DONUMR> 4 F?DONUMR> 6 F?DONUMR> 8 F?DONUM CLEANUP !VERSION?DONUMPNUMBANKS PNUMBANKS2 RBAN}KFLG F?XSETUP$ D?XSETUP. Q> 08 PBANKFLGB ZTOBNKL QSAVPORTBV PPORTB` PRPORTBj BNKTOZt CLEANUP~ ?XSETU}P!VERSION X;DATA GOES BELOW #X;SPECIFY NAME OF ADN AFTER /END X; ?SAVPORTB  !?SET1 ======= !?S}ET2 ======= !?SET3 ======= !?SET4 ======= !?SET5 =======} !?SET6 ======= !?SET7 ======= !?SET8 ======= ?LOOPNUM  5?PICKM}SG ASelect Bank Number: to exitA= $?WAITMSG A}*Please Wait*A== ?FREEMSG A FreeA=( "?MODMSG A Free; M}odified.A=2 5?NUMMSG AUse Banks (2,4,6,8): to exitA=< 4?SETMSG AUse Bank Set (1-8): to exitA=F P X };ADDIN CODE GOES HEREZ X;d ITEM_3n ?CONVMJ TOPCLRx Q>4?CONVMSG %>5?CONVMSG PRMSG YORN H?XCON QCURR  }P?CONLOOP P?CONM QCURR P?CONLOOP P?CONM ?CON$> ; QLASTLINE SCURR P?LEN QLASTL }INE" SCURR, P?LEN6 F?LASTPG@ ?CON1Q>J ?CON2P?ENDPOST %>^ ?CONLOOPQ8h R>Mr H?NOTM| Q>^ H }?CONM ?NOTMR>J F?NOSTOR ?CONMP9 2 H?NOSTOR #?CONM ?NOSTOR3 )?ENDPOS H?CONLOOP #?CONLOOP } Q?LEN F?OUT "?LEN H?CON1 ?LASTPGQ?LEN& H?CON20 ?OUTA: ,D O?CONMN PLASTLINEX Q?CONMb} O>l PLASTLINEv ZFILL X; ?XCON CLEANUP !SYSMSG DNSCR; QTEXEND RBOTSCR D?XDNSCR QBOTS}CR PCURR PTOPLIN QBOTSCR PCURR PTOPLIN REFRESH ?XDNSCR!CHECK X;DATA GOES BELOW #X;SPECIFY }NAME OF ADN AFTER /END* X;4 ?LEN => ?ENDPOS H %?CONVMSG AConvert ASCII CR'sA=R \ X;f X;ADDIN CODE GOES HER}Ep X;z X;?SETSTL SETS THE PRINT DEFS "X;?SOFKEY SETS THE SOFTKEY DEFS X; ITEM_4 ?SETSTLQ>} CHROUT TOPCLR} Q>4?STL.MSG %>5?STL.MSG PRMSG Q>4?LMSG %>5?LMSG $> ?SETSTL2 Q>4?YMSG %>5?YMSG$>$ ?SETST}L2. Q>4?RMSG8 %>5?RMSGB$>L ?SETSTL2V Q>4?PMSG` %>5?PMSGj$>t ?SETSTL2~ Q>4?TMSG %>5?TMSG$> }?SETSTL2 Q>4?BMSG %>5?BMSG$> ?SETSTL2 Q>4?SMSG %>5?SMSG$> ?SETSTL2 Q>4?XMSG %>5?XMSG $}>  ?SETSTL2 TOPCLR(Q>4?STLOKMSG2%>5?STLOKMSG< PRMSGF YORNP H?SETSTLZ CLEANUPd !SYSMSGn?SETSTL2}&?XSAVx PRMSG INPUT QINLEN F?X.STL$> BUFFTOHEX $?XSAV PDEFTAB9 ?X.STL:?START.OPTSQ>} }CHROUTX; ITEM_5?SOFDEF TOPCLRQ>4?SOFMSG%>5?SOFMSG PRMSG" ?X.STOPTS,?SOFLOOPQ6R>@ F?SOF}LOOPJ;TS>^ D?X.OPTSh P?XSAVr ?X.STOPTS| TOPCLRQ>4?SOFDEFMSG%>5?SOFDEFMSG PRMSG GETAKEY $?X}SAV PSOFTKEY9 !?SOFDEF?X.STOPTSQ>P:?X.OPTSQ>P CLEANUP !SYSMSG ?PRLOADST%>r& Q}>SPACE0?LINECLRP@X7:1D)>[N H?LINECLRXQ>bPTlQ> vPU:X;X;DATA LINES FOLLOWX;1?STL.MSG A}: to skipA=?STLOKMSG AA=-?SOFDEFMSG ADefine as: Ӡ٠A=/?SOFMSG AP}ress : to exitA= ?XSAV !?LMSG =A Left Margin #A=!?YMSG =A...Y Setting #A=!?RMSG =A}Right Margin #A=!?PMSG =A Page Length #A=!?TMSG =A Top Margin #A= !?BMSG =A Bot Margin #A=!?SMS}G =ALine Spacing #A= !?XMSG =AWidth Across #A=*4X;>X;ADDIN CODE GOES HEREHX;R ITEM_6\TIMEDATEQSPAR}TAf F?EXITp X;CHECK FOR SPARTA TD DISPLAYz X;LISTX; LDA 560X; STA TEMPX; LDA 561X; STA TEMP+1X;  }LDY #6X; LDA (TEMP),YX; CMP #1X; BNE ?EXITX;IF TD IS ENABLED ASK#X;IF YES MAKE ROOM FOR TIME/DATE TOP!}CLRQ>4DATEMSG%>5DATEMSG PRMSG YORN H?EXIT$Q>. PINSLEN8Q>BPINSLENL INSBLOCKVX;IF INSER"}T WAS SUCCESSFUL`X;ENABLE RAM UNDER OS ROMjQt5~M>PӒ!X;LOAD CURRENT CURSOR POSITION"X;TO X,Y AND CALL SP#}ARTA VFMTTD %CURR $CURR $X;DISABLE RAM UNDER OS AND CHANGE!X;THE INSERTION TO SCREEN CODE7P%>$}?LOOPQ@CURR7 ASTOIN  P@CURR73)>( H?LOOP2"X;PUT A RETURN CHARACTER AT END<X;AND RETURNFQ>^P P@CU%}RR7Z?EXIT CLEANUPd !SYSMSGnX;xX;DATA GOES HEREX;ADD NAME OF ADN AFTER /ENDX;DATEMSG AInsert dateA=%&}ADDENDUM =A/END TOOLS.ADN/A=;DATA GOES HEREX;ADD NAME OF ADN AFTER /ENDX;DATEMSG AInsert dateA=%)B%DOS SYSB*)DUP SYSBSBANKUTILADNBoYT3RPRO COMBTOOLS ADNBTOOLS DOCB=TOOLS SRC